home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / MAKE CAPTURE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  922b  |  15 lines
  1. 1  REM  **********************
  2. 2  REM  *    MAKE CAPTURE    *
  3. 3  REM  *  BY CHARLES BOODY  *
  4. 4  REM  * COPYRIGHT (C) 1982 *
  5. 5  REM  * BY MICRO-SPARC.INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10 D$ =  CHR$(4):A$ = "CAPTURE.A": PRINT D$;"OPEN";A$: PRINT D$;"WRITE";A$: POKE 33,30: LIST 63999: PRINT D$;"CLOSE";A$: TEXT 
  9. 20  PRINT D$;"LOCK";A$
  10. 30 D$ =  CHR$(4):A$ = "CAPTURE.I": PRINT D$;"OPEN";A$: PRINT D$;"WRITE";A$: POKE 33,30: LIST 32766,32767: PRINT D$;"CLOSE";A$: TEXT 
  11. 40  PRINT D$;"LOCK";A$: END 
  12. 32765  REM  IN THE NEXT STATEMENT, INSERT A CONTROL-D BETWEEN THE QUOTES IN D$ = ""
  13. 32766  DIM A$(20):D$ = "": INPUT "TEXTFILE NAME: ";A$: PRINT D$;"OPEN";A$
  14. 32767  PRINT D$;"WRITE";A$: POKE 33,30: LIST 0,32765: PRINT D$;"CLOSE";A$: TEXT : END 
  15. 63999 D$ =  CHR$(4): INPUT "TEXTFILE NAME: ";A$: PRINT D$;"OPEN";A$: PRINT D$;"WRITE";A$: POKE 33,30: LIST 0,63998: PRINT D$;"CLOSE";A$: TEXT : END